home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / dev / amos / AMOS_0795.lzh / AMOSLIST / 000080_amos-request@svcs1.digex.net_Tue Jul 18 21:04:39 1995.msg < prev    next >
Internet Message Format  |  1995-08-04  |  2KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224]) by mail1.access.digex.net (8.6.12/8.6.12) with ESMTP id VAA17911;  for  ; Tue, 18 Jul 1995 21:04:37 -0400
  2. Received: (from daemon@localhost) by svcs1.digex.net (8.6.12/8.6.12) id TAA17653 for amos-out; Tue, 18 Jul 1995 19:46:29 -0400
  3. Received: from mail1.access.digex.net (mail1.access.digex.net [205.197.247.2]) by svcs1.digex.net (8.6.12/8.6.12) with ESMTP id TAA17649 for <amos-list@svcs1.digex.net>; Tue, 18 Jul 1995 19:46:28 -0400
  4. Received: from binx.mbhs.edu (root@binx.mbhs.edu [192.67.131.95]) by mail1.access.digex.net (8.6.12/8.6.12) with ESMTP id TAA10404;  for <amos-list@access.digex.net> ; Tue, 18 Jul 1995 19:46:27 -0400
  5. Received: from dragon.mbhs.edu (dragon.mbhs.edu [192.67.131.57]) by binx.mbhs.edu (8.6.11/8.6.11) with SMTP id TAA05741 for <amos-list@access.digex.net>; Tue, 18 Jul 1995 19:47:28 -0400
  6. From: achurch@dragon.mbhs.edu (Andy Church)
  7. To: amos-list@access.digex.net
  8. Subject: Re: Library call ?
  9. Date: Tue Jul 18 19:46:09 1995
  10. Message-ID: <199507181946.AA04131@dragon.mbhs.edu>
  11. X-Mailer: MMail v4.23
  12. Status: RO
  13. X-Status: 
  14.  
  15. > Well this would be the easiest way for me,but I can also use the library
  16. > comming with the BBS Program.
  17. >
  18. > But now my Question:  HOW DO I CALL SUCH A LIBRARY FUNCTION ??
  19.  
  20.   Use Lib Open/Call/Close.  For your example:
  21.  
  22. >  Function: Typefile(Port,Filename)
  23. >                      d0     a1
  24. >  Offset  : -114
  25.  
  26. 'Open the library.  <Channel> is a "file number" just like with Open, etc.
  27. '<Version> is the lowest version of the library you can use, or 0 if you
  28. 'don't care.
  29. Lib Open <channel>,"whatever.library",<version>
  30. ..
  31. 'Set up registers and call the function.
  32. FILENAME$=FILENAME$+Chr$(0) : Rem Strings must end with a null character
  33. Dreg(0)=PORT
  34. Dreg(1)=Varptr(FILENAME$)
  35. RESULT=Lib Call(<channel>,-114)
  36. ..
  37. 'Close the library when we're done with it.
  38. Lib Close <channel>
  39.  
  40.   --Andy Church (achurch@binx.mbhs.edu)
  41.     WWW: http://mmm.mbhs.edu/~achurch/
  42.     AMOS Web Site: http://mmm.mbhs.edu/~achurch/amos/